home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01512_SSzoomUp.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  716 b   |  24 lines
  1. global memcastnum
  2.  
  3. on mouseDown
  4.   puppetSound("Single Click")
  5.   if (chars(syearstr, 6, 8) = "_YN") or (chars(syearstr, 6, 8) = "_BW") or (chars(syearstr, 6, 8) = "_FN") or (chars(syearstr, 6, 8) = "_TM") then
  6.     mpstorf(3, 4, 0)
  7.     puppetSprite(16, 0)
  8.     puppetSprite(19, 0)
  9.   else
  10.   end if
  11.   set tmpframelabel to the frameLabel
  12.   if tmpframelabel <> "PT" then
  13.     puppetTransition(23)
  14.   end if
  15.   go("PT")
  16.   mspriteset(22, 1, 1, 0, the number of cast (chars(the name of cast the mouseCast, 1, 7) & "L" & chars(the name of cast the mouseCast, 9, 9)), 162, 156)
  17.   if tmpframelabel = "PT" then
  18.     zoomBox(the clickOn, 22, 1)
  19.   else
  20.     puppetTransition(23)
  21.   end if
  22.   set memcastnum to the castNum of sprite 24
  23. end
  24.